Belgian Amiga Club - ADF Collection/BS1 part 60.zip/BS1 part 60/Helm d4.adf/PigLatin

Helm Multimedia Book | 1993-07-14 | 16KB | 289 lines

    test.book
    18-Dec-92
New...
Open...
Make Copy...
Streamline...
Print...
    Report...
Preferences...
    Workbench
Help...
About...
Quit...
Paste
Clear
Select All
Cut Page
    Copy Page
Colors
Load...
Save...
Restore Colors
Default Colors
Brush Colors
Image Colors
Cycle
Grid...
Stop Sound
Show All
    Edit Form
Share
    Next Page
Previous Page
First Page
    Last Page
Backward
Forward
    Last Book
    Browse...
Autobrowse...
    Bookshelf
New Page
Delete Page
New Form
Load Form...
Save Form...
Image
Load...
Save...
Capture...
    Clipboard
Paste
Spare
Swap Frames
Copy to Spare
Merge in Front
Merge in Back
Delete Spare
Frame
Previous
Delete
Copy to All
Color
Remap
Transparency
Paper <-> Pen
Paper ->  Pen
Count
Vertical
Horizontal
Info...
Brush
Load...
Save...
Restore
    Clipboard
Paste
Color
Remap
Transparency
Paper <-> Pen
Paper ->  Pen
Center
Corner
    Any Point
Any Size
Halve
Double
Halve Width
Halve Height
Double Width
Double Height
To PAL
To NTSC
Vertical
Horizontal
Shear
Vertical
Horizontal
Rotate
    Any Angle
Paint
Matte
Color
Replace
Smear
Dissolve
Spare
Cycle
Cycle 2
Gradient
Gradient 2
Smudge
Chaos
Count
Custom
Dither
Edges
Object
Load...
Save...
Bring to Front
Send to Back
Bring Closer
Send Farther
Group
Ungroup
Duplicate...
Align...
Info...
Actions...
    Script...
Load...
Save...
Plain
    Underline
Italic
Shadow
Font...
Spacing...
    Hypertext
Actions...
    Script...
Tools
Coordinates
    Title Bar
Palette
Colors
Patterns
Paint Tools
Paint Types
    Histogram
    Magnifier
Messages
Draw Tools
Layers
Pages
Author
Book...
Form...
Page...
Display...
Menus...
Narrator...
Hypertext...
Resources...
    Effect...
Effect Area
DDDUUUfffwww
Basic22
topaz.font
FONTS:Basic/22
RAM:test.book
DDDUUUfffwww
Pig Latin Appears Here
Type English into the
top textfield and press
return. The computer
will translate it into
Pig Latin and put the
translation into the
second textfield.
PIG  LATIN
Type English Here
    Bookshelf
Go Back
on FieldReturn
begin
  put "ch gh ph rh sh th wh sl kn " &
"br cr dr fr gr kr pr tr wr " &
"sc sp st bl cl fl gl kl pl " into dipthongs
  put the number of words of textfield id 1 into n
  put textfield id 1 into the Phrase
  for index = 1 to n begin
put word index of the Phrase into OneWord
if char 1 to 2 of OneWord is in dipthongs begin
put char 1 to 2 of OneWord after OneWord
delete char 1 to 2 of OneWord
put OneWord & "ay " after the NewPhrase
else begin
if char 1 of OneWord is in "aeiou"
put "way" after OneWord
else begin
put char 1 of OneWord after OneWord
put "ay" after OneWord
delete char 1 of OneWord
put OneWord & space after the NewPhrase
  end
  put the number of words of the NewPhrase into n
  for i = 1 to n begin
put the number of characters of word i of the NewPhrase into m
for j = 1 to m begin
if char j of word i of the NewPhrase is in ",.?;:!" then begin
    put char j of word i of the NewPhrase after
(word i of the NewPhrase
    delete char j of word i of the NewPhrase
  end
  put the NewPhrase into textfield id 3
  say the NewPhrase
ch gh ph rh sh th wh sl kn
br cr dr fr gr kr pr tr wr
sc sp st bl cl fl gl kl pl
aeiou
,.?;:!
won PageOpen
begin
  Put "Type English Here" into textfield id 1
  put "Pig Latin Appears Here" into textfield id 3
Type English Here
Pig Latin Appears Here
TITLE
(j(ox
Pig Latin Appears Here
Type English into the
top textfield and press
return. The computer
will translate it into
Pig Latin and put the
translation into the
second textfield.
PIG  LATIN
Type English Here
    Bookshelf
Go Back
on FieldReturn
begin
  put "ch gh ph rh sh th wh sl kn " &
"br cr dr fr gr kr pr tr wr " &
"sc sp st bl cl fl gl kl pl " into dipthongs
  put the number of words of textfield id 1 into n
  put textfield id 1 into the Phrase
  for index = 1 to n begin
put word index of the Phrase into OneWord
if char 1 to 2 of OneWord is in dipthongs begin
put char 1 to 2 of OneWord after OneWord
delete char 1 to 2 of OneWord
put OneWord & "ay " after the NewPhrase
else begin
if char 1 of OneWord is in "aeiou"
put "way" after OneWord
else begin
put char 1 of OneWord after OneWord
put "ay" after OneWord
delete char 1 of OneWord
put OneWord & space after the NewPhrase
  end
  put the number of words of the NewPhrase into n
  for i = 1 to n begin
put the number of characters of word i of the NewPhrase into m
for j = 1 to m begin
if char j of word i of the NewPhrase is in ",.?;:!" then begin
    put char j of word i of the NewPhrase after
(word i of the NewPhrase
    delete char j of word i of the NewPhrase
  end
  put the NewPhrase into textfield id 3
  say the NewPhrase
ch gh ph rh sh th wh sl kn
br cr dr fr gr kr pr tr wr
sc sp st bl cl fl gl kl pl
aeiou
,.?;:!
won PageOpen
begin
  Put "Type English Here" into textfield id 1
  put "Pig Latin Appears Here" into textfield id 3
Type English Here
Pig Latin Appears Here